home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / misc / EasyPrint_Pch.lha / EasyPrint_Pch / Install next >
Text File  |  1997-01-14  |  5KB  |  102 lines
  1. ;
  2. ; Script di installazione per EasyPrint 2.27 (14.01.97)
  3. ;
  4.  
  5. (if (= @language "italiano")
  6.     (
  7.         (message
  8.                 (cat      "\n\n\nEasyPrint, script di upgrade.\n"
  9.                           "Questa procedura installa l' ultima versione di EasyPrint sul vostro Amiga.\n\n"
  10.                           "(C) Copyright 1995-1997 Andrea Latina."
  11.                 ))
  12.  
  13.  
  14.         (while (NOT (exists (set eprint-path
  15.                                 (tackon
  16.                                     (askdir
  17.                                         (prompt  "Seleziona la directory in cui hai installato EasyPrint")
  18.                                         (help    @askdir-help)
  19.                                         (default "SYS:Tools")
  20.                                     ) "EasyPrint" ))))
  21.             (message "\nATTENZIONE!\n\nEasyPrint non risulta essere installato in questa directory."))
  22.  
  23.         (if (= (exists eprint-path) 2) (set eprint-path (tackon eprint-path "EasyPrint")))
  24.  
  25.         (if (NOT (exists ("%s.key" eprint-path))) (abort "ATTENZIONE!\n\nLa versione installata è solo una DEMO,\nquindi non è possibile applicarvi alcun patch!"))
  26.         
  27.         (set eprint-vers (getversion eprint-path))
  28.         (set eprint-ver (/ eprint-vers 65536))
  29.         (set eprint-rev (- eprint-vers (* eprint-ver 65536)))
  30.         
  31.         (if (< eprint-rev 26)
  32.             (message "\nLa versione attualmente insallata è precedente la 2.26,\nquindi il patch non può essere applicato.\n\nContattatemi per avere l' aggiornamento.")
  33.             ((message ("\nLa versione attualmente insallata è la 2.%ld,\n\napplico il Patch alla versione 2.27 ?" eprint-rev))
  34.              (select (- eprint-rev 26)
  35.                 ((run  ("Spatch -o%s -pep_patch/from_26_to_27.pch %s" eprint-path eprint-path))
  36.                 (copyfiles
  37.                     (prompt "Copio i nuovi files...")
  38.                     (source "ep_files/")
  39.                     (help @copyfiles-help)
  40.                     (dest (pathonly eprint-path))
  41.                     (all)
  42.                     (optional force))
  43.                     (if (exists ("%s_ITA.guide" eprint-path))
  44.                         (copyfiles
  45.                             (prompt "Copio la nuova documentazione....")
  46.                             (source "ep_docs/EasyPrint_ITA.guide")
  47.                             (help @copyfiles-help)
  48.                             (dest (pathonly eprint-path))
  49.                             (optional force))))
  50.                 (message "\nATTENZIONE!\n\nQuesta versione è la piu' recente."))
  51.             )
  52.         )
  53.     )
  54.     (
  55.         (message
  56.                 (cat      "\n\n\nEasyPrint, upgrade to latest version.\n"
  57.                           "This process install the latest version of EasyPrint on your Amiga.\n\n"
  58.                           "(C) Copyright 1995-1997 Andrea Latina."
  59.                 ))
  60.  
  61.  
  62.         (while (NOT (exists (set eprint-path
  63.                                 (tackon
  64.                                     (askdir
  65.                                         (prompt  "Select directory where have installed EasyPrint")
  66.                                         (help    @askdir-help)
  67.                                         (default "SYS:Tools")
  68.                                     ) "EasyPrint" ))))
  69.             (message "\nWARNING!\n\nEasyPrint isn't installed in this directory!"))
  70.  
  71.         (if (= (exists eprint-path) 2) (set eprint-path (tackon eprint-path "EasyPrint")))
  72.  
  73.         (if (NOT (exists ("%s.key" eprint-path))) (abort "WARNING!\n\nThis version is only a DEMO!!,\nTherefore i can't apply a patch."))
  74.         
  75.         (set eprint-vers (getversion eprint-path))
  76.         (set eprint-ver (/ eprint-vers 65536))
  77.         (set eprint-rev (- eprint-vers (* eprint-ver 65536)))
  78.  
  79.         (if (< eprint-rev 26)
  80.             (message "\nVersion installed at present is older than 2.26,\nso I can't apply the patch.\n\nPlease contact me for the upgrade.")
  81.             ((message ("\nVersion installed at present is 2.%ld,\n\napply the Patch to version 2.27 ?" eprint-rev))
  82.              (select (- eprint-rev 26)
  83.                 ((run  ("Spatch -o%s -pep_patch/from_26_to_27.pch %s" eprint-path eprint-path))
  84.                 (copyfiles
  85.                     (prompt "Copying new files...")
  86.                     (source "ep_files/")
  87.                     (help @copyfiles-help)
  88.                     (dest (pathonly eprint-path))
  89.                     (all)
  90.                     (optional force))
  91.                     (copyfiles
  92.                         (prompt "Copying new docs....")
  93.                         (source "ep_docs/EasyPrint.guide")
  94.                         (help @copyfiles-help)
  95.                         (dest (pathonly eprint-path))
  96.                         (optional force)))
  97.             (message "\nWARNING!\n\nVersion already installed is the latest."))
  98.             )
  99.         )
  100.     )
  101. ) ; if
  102.